rx "open(n,'T:file_id_diz.tmp');string=readln(n);close(n);string=STRIP(string);s=string;m=44;b=1;IF length(s)>m THEN DO n=1 by 1 for words(s);IF wordindex(s,n)+wordlength(s,n)-b>=m THEN DO;IF n=1 THEN leave;b=wordindex(s,n-1);s=insert('0a'x,s,b-1);END;END;open(n,'{DESC}','w');writeln(n,s);close(n)"
delete T:file_id_diz.tmp QUIET
unset note
skip end
endif
lha e -X -m -a0 "{file}" file_id.diz T: >nil:
if exists "{desc}"
skip end
else
set aminetfile "`list "{file}" LFORMAT %f%m`.readme"
if not exists "$aminetfile"
set aminetfile "`list "{file}" LFORMAT %m`.readme"